home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / hard / misc / ICS.lha / ICS / Install-ICS < prev    next >
Text File  |  2000-02-26  |  18KB  |  684 lines
  1. ; $VER: ICS 1.09 (29.02.00)
  2. ; Copyright (C)1999-2000 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set icsvernew 2)  ; Set to the version/revision of ICS library!!!
  8. (set icsrevnew 9)
  9.  
  10. ;**** English text
  11. ;-------
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the ICS for Scanners.\n\n"
  14.     "ICS is Copyright (C)1999 by Wolf Faust\n\n"
  15. ))
  16. ;-------
  17. (set #waitmsg
  18. (cat "\n\n\n\nWorking. Please wait..."
  19. ))
  20. (set #register
  21. (cat "\nPlease remember:\nYou can use ICS for free as long as you return the registration form within 48 hours after start using ICS\n"
  22. ))
  23. ;-------
  24. (set #bad-kick
  25. (cat    "\nYour system software is very old. "
  26.     "You must use at least Kickstart 2.04 for all ICS programs."
  27. ))
  28. ;--------------
  29. (set #foundicsver
  30. (cat "\nI found an exisiting ICS installation\n(Library Ver. %ld Rev. %ld).\nPlease select the type of action you want to perform:\n"
  31. ))
  32. (set #foundics
  33. (cat "I found an exisiting ICS installation. Please select the type of action you want to perform:"
  34. ))
  35. (set #foundicshelp
  36. (cat "When selecting update, the ICS software will be updated in the ICS: location found.\n\n"
  37.     "When selecting complete installation, you will continue to do a complete ICS installation.\n\n"
  38.     @askoptions-help
  39. ))
  40. (set #foundics-choices0
  41. (cat "Remove ICS from your system"
  42. ))
  43. (set #foundics-choices1
  44. (cat "Update existing ICS software"
  45. ))
  46. (set #foundics-choices2
  47. (cat "Do a complete new ICS installation"
  48. ))
  49.  
  50. (set #yes
  51. (cat "YES"
  52. ))
  53. (set #yesupdate
  54. (cat "Yes, overwrite"
  55. ))
  56. (set #nodrawer
  57. (cat "No, continue"
  58. ))
  59. ;--------------
  60. (set #ask-ics
  61. (cat "Select the disk or drawer the 'ICS' application drawer should be created in?"
  62. ))
  63. (set #ask-ics-help
  64. (cat "\nThis section lets you choose in which drawer or on which disk the "
  65.     "ICS programs should be installed. "
  66.     "The program can be installed to any disk/drawer you like. "
  67.     "The selected disk should have at least 3 MByte free space.\n\n"
  68.     @askdir-help
  69. ))
  70. ;--------------
  71. (set #abortunpack
  72. (cat "\nError occured while running the installation decompression program. "
  73.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  74. ))
  75. ;--------------
  76. (set #cputype
  77. (cat "\nPlease select for what type of CPU/FPU hardware ICS should be installed for.\n"
  78. ))
  79. (set #cputype-help
  80. (cat "\nICS was written for various CPU's (Central Processor Unit) supported by the Amiga OS. "
  81.     "For instance, if you own a normal Amiga 4000 choose the 68040 FPU ICS library (FPU=Floating Point Unit).\n"
  82.     "Older Amigas like the A500, A600, A1000, A2000 were build with the 68000 CPU.\n"
  83.     "The Amiga 1200 has a 68020 CPU (no FPU!).\n"
  84.     "The Amiga 3000(T) has a 68030 with FPU\n"
  85.     "If your Amiga has accelerator board fitted, please choose the correct "
  86.     "library.\n\nThere can be major speed differences between different versions of the library!!!\n"
  87.     "Note: the 68000 version works with all Amigas but is the slowest.\n\n"
  88.     @askoptions-help
  89. ))
  90. ;--------------
  91. (set #userstartup
  92. (cat "Can I add/remove an ICS: and ICS_Profiles: assign to/from your user-startup sequence?" 
  93. ))
  94. ;--------------
  95. (set #foundnewerics
  96. (cat "A newer ICS library Ver. %ld Rev. %ld is already installed on your system. Shall I install the Ver. %ld Rev. %ld library? Select NO to use the already installed library.\n"
  97. ))
  98. (set #foundnewhelp
  99. (cat "When selecting yes, the ICS library stored in LIBS: will be overwritten.\n\n"
  100.     "When selecting no, the ICS programs will be installed and use the existing library.\n\n"
  101. ))
  102. ;--------------
  103. (set #icsremoved
  104. (cat "\nICS was removed from your system.\nYou may now delete the ICS drawer from your system.\n"
  105. ))
  106. ;--------------
  107. (set #manual
  108. (cat "manualE"
  109. ))
  110. ;--------------
  111. (set #manualpath
  112. (cat "Pages"
  113. ))
  114. ;--------------
  115. (set #warnfpu
  116. (cat "\nThis is just a note and NOT an error message:\n\n"
  117.     "Make sure that your system has a correctly working "
  118.     "680x0.library installed. Otherwise FPU errors can "
  119.     "cause ICS to generate faulty/random images. "
  120.     "Especialy older PowerPC board owners might need "
  121.     "to update their system before their FPU is working correctly.\n"
  122.     "\nYou can always install the slower 68000 version in order to "
  123.     "avoid the rare CPU/FPU problems. But first go ahead with the FPU version..."
  124. ))
  125.  
  126.  
  127. ;*** German
  128. (if (= @language "deutsch")
  129. (
  130.     (set #welcome-pirate
  131.     (cat "\nWillkommen zur Installation der ICS Software!\n\n"
  132.         "Copyright (C)1999 Wolf Faust\n\n"
  133.     ))
  134.     ;-------
  135.     (set #waitmsg
  136.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  137.     ))
  138.     ;-------
  139.     (set #register
  140.     (cat "\nNicht vergessen:\nSie können ICS kostenlos benutzen, solange Sie binnen 48 Stunden nach der ersten Nutzung die Software kostenlos registrieren."
  141.     ))
  142.     ;-------
  143.     (set #bad-kick
  144.     (cat    "\nIhre System-Software ist sehr alt. "
  145.         "Sie brauchen mindestens Kickstart 2.04 für alle ICS-Programme."
  146.     ))
  147.     ;--------------
  148.     (set #foundicsver
  149.     (cat "\nIch habe eine installierte ICS Software gefunden\n(Library Ver. %ld Rev. %ld).\nBitte wählen Sie eine gewünschte Aktion:\n"
  150.     ))
  151.     (set #foundics
  152.     (cat "\nIch habe eine installierte ICS Software gefunden. Bitte wählen Sie eine gewünschte Aktion:\n"
  153.     ))
  154.     (set #foundicshelp
  155.     (cat "Wählen Sie entfernen, und die ICS Library sowie Assigns in S:User-Startup werden entfernt.\n\n"
  156.         "Wählen Sie erneuern, dann wird die ICS Software in der ICS: Schublade upgedated.\n\n"
  157.         "Wählen Sie komplette Installation, können Sie mit der normalen ICS Installation fortfahren.\n\n"
  158.         @askoptions-help
  159.     ))
  160.     (set #foundics-choices0
  161.     (cat "ICS aus dem System entfernen"
  162.     ))
  163.     (set #foundics-choices1
  164.     (cat "Vorhandene ICS Software erneuern"
  165.     ))
  166.     (set #foundics-choices2
  167.     (cat "ICS komplett neu installieren"
  168.     ))
  169.     (set #yes
  170.     (cat "JA"
  171.     ))
  172.     (set #yesupdate
  173.     (cat "Ja, überschreiben"
  174.     ))
  175.     (set #nodrawer
  176.     (cat "Nein, weiter"
  177.     ))
  178.     ;--------------
  179.     (set #ask-ics
  180.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das ICS-Verzeichnis angelegt werden soll."
  181.     ))
  182.     (set #ask-ics-help
  183.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  184.         "Schublade die ICS-Schublade mit den Programmen kopiert werden soll. Normalerweise sollten "
  185.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  186.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 3 MByte "
  187.         "an freien Speicherplatz besitzen.\n\n"
  188.         @askdir-help
  189.     ))
  190.     ;--------------
  191.     (set #abortunpack
  192.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  193.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  194.     ))
  195.     ;--------------
  196.     (set #cputype
  197.     (cat "\nBitte wählen Sie, für welchen Prozessor ICS installiert werden soll.\n"
  198.     ))
  199.     (set #cputype-help
  200.     (cat "\nICS wurde für verschiedene Prozessoren erstellt. Bitte wählen Sie den Prozessor (CPU) "
  201.         "und falls vorhanden, die Fließkomma-Einheit (FPU) Ihrer Hardware. "
  202.         "Sollten Sie Ihren Amiga nicht mit einem schnelleren Prozessor erweitert haben, "
  203.         "finden Sie folgende Prozessoren in Ihren Amiga:\n"
  204.         "Amiga 500, 600, 1200, 2000:  CPU 68000\n"
  205.         "Amiga 1200:     CPU 68020 ohne FPU\n"
  206.         "Amiga 3000 (T): CPU 68030 mit FPU\n"
  207.         "Amiga 4000:     CPU 68040 mit FPU\n\n"
  208.         "Die ICS Geschwindigkeitsunterschiede können zwischen den verschiedenen CPU Versionen enorm sein.\n\n"
  209.         @askoptions-help
  210.     ))
  211.     ;--------------
  212.     (set #userstartup
  213.     (cat "Kann ich einen ICS: und ICS_Profiles: Verweis in Ihrer User-Startup-Sequenz hinzufügen oder löschen?" 
  214.     ))
  215.     ;--------------
  216.     (set #foundnewerics
  217.     (cat "Eine neuere Version %ld Revision %ld der 'ics.ibrary' ist bereits auf Ihrem System installiert.\nSoll ich trotzdem die Ver. %ld Rev. %ld der Library installieren?\nWählen Sie Nein um die vorhandene Library zu benutzen.\n"
  218.     ))
  219.     (set #foundnewhelp
  220.     (cat "Wählen Sie ja, dann wird die 'ics.library' in der LIBS: Schublade mit einer älteren Version überschrieben.\n\n"
  221.         "Wählen Sie Nein, werden die ICS Programme installiert, wobei die schon installierte 'ics.library' benutzt wird.\n\n"
  222.     ))
  223.     ;--------------
  224.     (set #icsremoved
  225.     (cat "\nICS wurde von Ihrem System entfernt.\nSie können jetzt die ICS Schublade löschen.\n"
  226.     ))
  227.     ;--------------
  228.     (set #manual
  229.     (cat "manual"
  230.     ))
  231.     ;--------------
  232.     (set #manualpath
  233.     (cat "Seiten"
  234.     ))
  235.     ;--------------
  236.     (set #warnfpu
  237.     (cat "\nDies ist ein Hinweis und keine Fehlermeldung:\n\n"
  238.         "Damit die FPU-Version von ICS korrekt funktioniert, "
  239.         "muß eine korrekt funktionierende 680x0.library in "
  240.         "Ihrem System installiert sein. Besonders Besitzer "
  241.         "älterer Systemsoftware sollten bei Fehlern in Bildern "
  242.         "Ihr System updaten."
  243.         "\n\nSollten die seltenen CPU/FPU Probleme auftauchen, "
  244.         "können Sie bis zum Systemupdate die langsamere 68000er Version "
  245.         "von ICS ausprobieren."
  246.         "\nAber jetzt erst mal weiter... "
  247.     ))
  248. ))
  249.  
  250. (procedure Meter
  251. (
  252.     (set accum    (+ accum addmeter))
  253.     (complete (/ (* accum 100) total))
  254. ))
  255.  
  256. (complete 0)
  257. ; (message #welcome-pirate)
  258. (working #waitmsg)
  259. (set @default-dest "")
  260.  
  261. (set total        100)
  262. (set accum        0)
  263. (set addmeter        0)
  264. (set firstdisk "")
  265. (set studiodefault "Default_Setting")
  266. ; **** sure we are running under a 2.04 or higher ROM???
  267. (if (< (/ (getversion) 65536) 37)
  268.     (abort #bad-kick)
  269. )
  270.  
  271. (set icsvervalid 0)
  272. (set icsver 0)
  273. (set icsrev 0)
  274. (if (= (exists "LIBS:ics.library") 1)
  275. (
  276.     (set vernum (getversion "LIBS:ics.library"))
  277.     (set icsver (/ vernum 65536))
  278.     (set icsrev (- vernum (* icsver 65536) ) )
  279.     (if (OR (<> icsver 0) (<> icsrev 0))
  280.     (
  281.         (set icsvervalid 1)
  282.     ))
  283. ))
  284. (set addmeter    10)
  285. (Meter)
  286. (set guessdrawer "")
  287. (if (= guessdrawer "")
  288. (
  289.     (set guessdrawer (getassign "WORK" "d"))
  290.     (if (= guessdrawer "")
  291.     (
  292.         (set guessdrawer (getassign "DH0" "d"))
  293.         (if (= guessdrawer "")
  294.         (
  295.             (set guessdrawer (getassign "DH2" "d"))
  296.             (if (= guessdrawer "")
  297.             (
  298.                 (set guessdrawer "SYS:")
  299.             ))
  300.         ))
  301.     ))
  302. ))
  303.  
  304. (set inschoice 2)
  305. (set icsassign "")
  306. (set proassign "")
  307. (set icsguessdrawer (getassign "ICS" "a"))
  308. (if (<> icsguessdrawer "")
  309. (
  310.     (set proguessdrawer (getassign "ICS_Profiles" "a"))
  311.     (if (<> proguessdrawer "")
  312.     (
  313.         (set icsassign "ICS:/")
  314.         (set proassign "ICS_Profiles:/")
  315.         (set icspath (expandpath "ICS:"))
  316.         (set propath (expandpath "ICS_Profiles:"))
  317.  
  318.         (if (<> icsvervalid 0)
  319.         (
  320.             (set inschoice (askchoice (prompt (#foundicsver icsver icsrev))
  321.                 (help #foundicshelp)
  322.                 (choices #foundics-choices0 #foundics-choices1 #foundics-choices2)
  323.                 (default 1)
  324.                 )
  325.             )
  326.         )
  327.         (
  328.             (set inschoice (askchoice (prompt #foundics)
  329.                 (help #foundicshelp)
  330.                 (choices #foundics-choices0 #foundics-choices1 #foundics-choices2)
  331.                 (default 1)
  332.                 )
  333.             )
  334.         ))
  335.     ))
  336. ))
  337. (working #waitmsg)
  338. (set addmeter    10)
  339. (Meter)
  340.  
  341. (if (= inschoice 0)
  342. (
  343.     (set n 0)
  344.     (while (set thisfile (select n  "LIBS:ics.library"
  345.         "ENV:sys/ICSConvert_def_project.info"
  346.         "ENVARC:sys/ICSConvert_def_project.info"
  347.         "ENV:sys/ScanTarget_def_project.info"
  348.         "ENVARC:sys/ScanTarget_def_project.info"
  349.         "ENV:sys/ICS_def_project.info"
  350.         "ENVARC:sys/ICS_def_project.info"
  351.         "LOCALE:catalogs/deutsch/ICS_Library.catalog"
  352.         "LOCALE:catalogs/deutsch/ICS_Convert.catalog"
  353.         "LOCALE:catalogs/deutsch/ICS_ScanTarget.catalog"
  354.         "ENV:ICS.prefs"
  355.         "ENVARC:ICS.prefs"
  356.         "" ))
  357.     (
  358.         (set n (+ n 1))
  359.         (if (exists thisfile)
  360.         (
  361.             (delete thisfile)
  362.         ))
  363.     ))
  364.     (set addmeter    20)
  365.     (makeassign "ICS")
  366.     (makeassign "ICS_Profiles")
  367.     (set addmeter    20)
  368.     (startup "ICS"
  369.         (prompt (#userstartup))
  370.         (help @startup-help)
  371.     )
  372.     (set addmeter    35)
  373.     (message (#icsremoved))
  374.     (exit (quiet))
  375. )
  376. (
  377.     (set asknewver 0)
  378.     (if (<> icsvervalid 0)
  379.     (
  380.         (if (> icsver icsvernew)
  381.         (
  382.             (set asknewver 1)
  383.         )
  384.         (
  385.             (if (= icsver icsvernew)
  386.             (
  387.                 (if (> icsrev icsrevnew)
  388.                 (
  389.                     (set asknewver 1)
  390.                 ))
  391.             ))
  392.         ))
  393.         (if (<> asknewver 0)
  394.         (
  395.             (if (askbool (prompt (#foundnewerics icsver icsrev icsvernew icsrevnew))
  396.                 (choices #yesupdate #nodrawer)
  397.                 (help (#foundnewhelp ))
  398.                 (default 0))
  399.             (
  400.                 (set asknewver 0)
  401.             ))
  402.         ))
  403.     
  404.     ))
  405.     (set addmeter    5)
  406.     (Meter)
  407.     
  408.     (if (= inschoice 2)
  409.     (
  410.         (set icsassign (askdir (prompt #ask-ics)
  411.             (default guessdrawer)
  412.             (help #ask-ics-help))
  413.         )
  414.         (set proassign (tackon icsassign "ICS"))
  415.         (set icspath proassign) 
  416.         (set propath (tackon proassign "ICS_Profiles"))
  417.         (if (= (exists "ENV:ICS.prefs") 1)
  418.         (
  419.             (delete "ENV:ICS.prefs")
  420.         ))
  421.         (if (= (exists "ENVARC:ICS.prefs") 1)
  422.         (
  423.             (delete "ENVARC:ICS.prefs")
  424.         ))
  425.         (message #register)
  426.     ))
  427.     (working #waitmsg)
  428.     (set addmeter    5)
  429.     (Meter)
  430.     (set deflibtype 0)
  431.     (set CPUStr (database "cpu"))
  432.     (set FPUStr (database "fpu"))
  433.     (if (OR (= CPUStr "68000") (= CPUStr "68010"))
  434.         (set deflibtype    0)
  435.     )
  436.     (if (OR (= CPUStr "68020") (= CPUStr "68030"))
  437.     (
  438.         (set deflibtype    2)
  439.         (if (= FPUStr "NOFPU")
  440.             (set deflibtype    1)
  441.         )
  442.     ))
  443.     (if (OR (= CPUStr "68040") (= CPUStr "68060"))
  444.     (
  445.         (set deflibtype    3)
  446.         (if (= FPUStr "NOFPU")
  447.             (set deflibtype    1)
  448.         )
  449.     ))
  450.     (set libtype  (askchoice (prompt #cputype)
  451.         (help #cputype-help)
  452.         (choices "CPU 68000/10"             ;0
  453.                  "CPU 68020/30/40"          ;1
  454.                  "CPU 68020/30 + FPU"       ;2
  455.                  "CPU 68040/60 + FPU"       ;3
  456.         )
  457.         (default deflibtype)
  458.     ))
  459.     (set libname (select libtype  "Software/lib000.lzh"   ;0
  460.         "Software/lib020.lzh"                         ;1
  461.         "Software/lib030fpu.lzh"                      ;2
  462.         "Software/lib040.lzh"                         ;3
  463.     ))
  464.  
  465.     (if (= inschoice 2)
  466.     (
  467.         (if (> libtype 2)
  468.         (
  469.             (message #warnfpu)
  470.         ))
  471.     ))
  472.  
  473.     
  474.     (set addmeter    5)
  475.     (Meter)
  476.     (working #waitmsg)
  477.     (copyfiles (source "lx")
  478.         (dest "T:")
  479.         (nogauge)
  480.     )
  481.     
  482.     (makeassign "ICSPARENT" icsassign)
  483.     (set exerr (run (cat "T:lx x Software/ics.lzh \"ICSPARENT:\"")))
  484.     (if (> exerr 0)
  485.     (
  486.         (abort (#abortunpack "Software/ics.lzh"))
  487.     ))
  488.     
  489.     (set addmeter    15)
  490.     (Meter)
  491.     (makeassign "PROPARENT" proassign)
  492.     (set exerr (run (cat "T:lx x Software/profiles.lzh \"PROPARENT:\"")))
  493.     (if (> exerr 0)
  494.     (
  495.         (abort (#abortunpack "Software/profiles.lzh"))
  496.     ))
  497.     
  498.     (set addmeter    10)
  499.     (Meter)
  500.     (if (= asknewver 0) ; Are we allowed to install the library?
  501.     (
  502.         (set exerr (run (cat "T:lx x " libname " \"LIBS:\"")))
  503.         (if (> exerr 0)
  504.         (
  505.             (abort (#abortunpack libname))
  506.         ))
  507.     ))
  508.  
  509.     (set addmeter    5)
  510.     (Meter)
  511.     (if (OR (= inschoice 2) (<> (exists "ENVARC:sys/ICSConvert_def_project.info") 1) ) ; Update default icon if not already available....
  512.     (
  513.         (copyfiles (source "Software/ICSConvert_def_project.info")
  514.             (dest "ENVARC:sys")
  515.             (nogauge)
  516.         )
  517.         (copyfiles (source "Software/ICSConvert_def_project.info")
  518.             (dest "ENV:sys")
  519.             (nogauge)
  520.         )
  521.     ))
  522.  
  523.     (set addmeter    5)
  524.     (Meter)
  525.  
  526.     (if (OR (= inschoice 2) (<> (exists "ENVARC:sys/ScanTarget_def_project.info") 1) ) ; Update default icon if not already available....
  527.     (
  528.         (copyfiles (source "Software/ScanTarget_def_project.info")
  529.             (dest "ENVARC:sys")
  530.             (nogauge)
  531.         )
  532.         (copyfiles (source "Software/ScanTarget_def_project.info")
  533.             (dest "ENV:sys")
  534.             (nogauge)
  535.         )
  536.     ))
  537.  
  538.  
  539.     (set addmeter    5)
  540.     (Meter)
  541.     (makeassign "ICS" icspath)
  542.     (if (= (exists (cat "ICS:" #manualpath)) 2)
  543.     (
  544.         (set n 0)
  545.         (while (< n 35)
  546.         (
  547.             (set n (+ n 1))
  548.             (if (exists (cat "ICS:" #manualpath "/page." n))
  549.             (
  550.                 (delete (cat "ICS:" #manualpath "/page." n ))
  551.             ))
  552.             (if (exists (cat "ICS:" #manualpath "/page." n "L"))
  553.             (
  554.                 (delete (cat "ICS:" #manualpath "/page." n "L"))
  555.             ))
  556.         ))
  557.     ))
  558.     (set exerr (run (cat "T:lx x Software/" #manual ".lzh \"ICS:\"")))
  559.     (if (> exerr 0)
  560.     (
  561.         (abort (#abortunpack (cat "Software/" #manual ".lzh")))
  562.     ))
  563.     (if (= (exists (cat "Software/" #manual "L.lzh")) 1)
  564.     (
  565.         (set exerr (run (cat "T:lx x Software/" #manual "L.lzh \"ICS:\"")))
  566.         (if (> exerr 0)
  567.         (
  568.             (abort (#abortunpack (cat "Software/" #manual "L.lzh")))
  569.         ))
  570.     ))
  571.     (set addmeter    10)
  572.     (Meter)
  573.  
  574.     (if (= inschoice 1) ; Update ?
  575.     (
  576.         (if (<> @language "deutsch")
  577.         (
  578.             (if (= (exists (cat "ICS:Seiten")) 2)
  579.             (
  580.                 (set n 0)
  581.                 (while (< n 35)
  582.                 (
  583.                     (set n (+ n 1))
  584.                     (if (exists (cat "ICS:Seiten/page." n))
  585.                     (
  586.                         (delete (cat "ICS:Seiten/page." n ))
  587.                     ))
  588.                     (if (exists (cat "ICS:Seiten/page." n "L"))
  589.                     (
  590.                         (delete (cat "ICS:Seiten/page." n "L"))
  591.                     ))
  592.                 ))
  593.  
  594.                 (set exerr (run (cat "T:lx x Software/manual.lzh \"ICS:\"")))
  595.                 (if (> exerr 0)
  596.                 (
  597.                     (abort (#abortunpack (cat "Software/manual.lzh")))
  598.                 ))
  599.                 (if (= (exists (cat "Software/manualL.lzh")) 1)
  600.                 (
  601.                     (set exerr (run (cat "T:lx x Software/manualL.lzh \"ICS:\"")))
  602.                     (if (> exerr 0)
  603.                     (
  604.                         (abort (#abortunpack (cat "Software/manualL.lzh")))
  605.                     ))
  606.                 ))
  607.             ))
  608.         ))
  609.         (if (<> @language "english")
  610.         (
  611.             (if (= (exists (cat "ICS:Pages")) 2)
  612.             (
  613.                 (set n 0)
  614.                 (while (< n 35)
  615.                 (
  616.                     (set n (+ n 1))
  617.                     (if (exists (cat "ICS:Pages/page." n))
  618.                     (
  619.                         (delete (cat "ICS:Pages/page." n ))
  620.                     ))
  621.                     (if (exists (cat "ICS:Pages/page." n "L"))
  622.                     (
  623.                         (delete (cat "ICS:Pages/page." n "L"))
  624.                     ))
  625.                 ))
  626.                 (set exerr (run (cat "T:lx x Software/manualE.lzh \"ICS:\"")))
  627.                 (if (> exerr 0)
  628.                 (
  629.                     (abort (#abortunpack (cat "Software/manualE.lzh")))
  630.                 ))
  631.                 (if (= (exists (cat "Software/manualEL.lzh")) 1)
  632.                 (
  633.                     (set exerr (run (cat "T:lx x Software/manualEL.lzh \"ICS:\"")))
  634.                     (if (> exerr 0)
  635.                     (
  636.                         (abort (#abortunpack (cat "Software/manualEL.lzh")))
  637.                     ))
  638.                 ))
  639.             ))
  640.         ))
  641.  
  642.     ))
  643.  
  644.     (copyfiles (source "VER")
  645.         (dest icspath)
  646.         (nogauge)
  647.     )
  648.  
  649.     (set addmeter    10)
  650.     (Meter)
  651.     (startup "ICS"
  652.         (prompt (#userstartup))
  653.         (help @startup-help)
  654.         (command "Assign ICS: \"" icspath "\"\n"
  655.             "Assign ICS_Profiles: \"" propath "\"\n"
  656.                 )
  657.     )
  658.  
  659.     (if (= (exists "LOCALE:catalogs/deutsch") 2)
  660.     (
  661.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_Library.catalog"))
  662.             (dest "LOCALE:catalogs/deutsch")
  663.             (nogauge)
  664.         )
  665.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_Convert.catalog"))
  666.             (dest "LOCALE:catalogs/deutsch")
  667.             (nogauge)
  668.         )
  669.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_ScanTarget.catalog"))
  670.             (dest "LOCALE:catalogs/deutsch")
  671.             (nogauge)
  672.         )
  673.     ))
  674.  
  675.     (makeassign "ICS" icspath)
  676.     (makeassign "ICS_Profiles" propath)
  677.     (makeassign "ICSPARENT")
  678.     (makeassign "PROPARENT")
  679.     (delete "t:lx")
  680.     (set @default-dest icspath)
  681. ))
  682.  
  683. (complete 100)
  684.